home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -serious- / hardware / ahd12 / ahd / devbug.s < prev    next >
Text File  |  2000-02-28  |  1KB  |  64 lines
  1.  
  2.         xref    _KPutChar
  3.         xref    _KPutStr
  4.  
  5.         xdef    putchar
  6.         xdef    puthex
  7.         xdef    putnl
  8.  
  9.         section "devbugcode",code
  10.  
  11. KPutStr:
  12.         pea     (a0)
  13.         jsr     _KPutStr
  14.         addq.l  #4,sp
  15.         rts
  16.  
  17. putchar:
  18.         movem.l a0-a6/d0-d7,-(sp)
  19.         move.l  d0,-(sp)
  20.         jsr     _KPutChar
  21.         add.l   #1,nlcnt
  22.         cmp.l   #80,nlcnt
  23.         bne.s   kpcend
  24.         jsr     putnl
  25. kpcend: move.l  (sp)+,d0
  26.         movem.l (sp)+,a0-a6/d0-d7
  27.         rts
  28.  
  29. puthex:
  30.         movem.l a0-a6/d0-d7,-(sp)
  31.         move.l  d0,d4
  32.         moveq   #7,d2
  33. phlop:  rol.l   #4,d4
  34.         move.l  d4,d0
  35.         and.l   #$f,d0
  36.         cmp.b   #10,d0
  37.         bcs.s   phchr
  38.         add.b   #7,d0
  39. phchr   add.b   #$30,d0
  40.         jsr     putchar
  41.         dbra    d2,phlop
  42.         move.b  #' ',d0
  43.         jsr     putchar
  44.         movem.l (sp)+,a0-a6/d0-d7
  45.         rts
  46. putnl:
  47.         movem.l a0-a6/d0-d7,-(sp)
  48.         move.l  #13,-(sp)
  49.         jsr     _KPutChar
  50.         addq.l  #4,sp
  51.         move.l  #10,-(sp)
  52.         jsr     _KPutChar
  53.         addq.l  #4,sp
  54.         move.l  #0,nlcnt
  55.         movem.l (sp)+,a0-a6/d0-d7
  56.         rts
  57.  
  58.         section "devbugbss",bss
  59.  
  60. nlcnt:          ds.l    1
  61.  
  62.         end
  63.  
  64.